home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 52
/
052.d81
/
qlink boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
67 lines
99 poke53265,peek(53265)and239
100 poke53280, 0:poke53281, 1:print"[147]";
101 print"[150]+ [186] ";
102 print" [150] LOADSTAR Presents [150] ";
103 print" [155] "
104 print" "
105 print"[154]QGuideWelcometotheleading"
106 print"telecommunicationnetworkfor"
107 print"theCommodore64and128."
108 print" "
109 print" Quantum Link [155] "
110 print"[154]ZZPAGETh [163][163][163][163][163][163][163][163][163][163][163][163] [155] [146][154]to"
111 print"mee[155]t other people. "
112 print"[154]MikeDMMoJohaveyouseenthenewest"
113 print" "
114 print"[160] A Demo and Terminal program [155] "
115 print"[154]MoJo[160][160] for Commodore's official [155]d"
116 print" on-line service. [155] "
117 print" [155] "
118 print"[154]Calhoo[155]n I uploaded it last week. The"
119 print"[154]gameisfantastic."
120 print"JimRHelloEveryone!:)"
121 print" ...[208]ress [211][208][193][195][197] [212]o [195]ontinue "
130 poke53265,peek(53265)or16
150 geta$:ifa$<>" "then 150
199 poke53265,peek(53265)and239
200 poke53280, 0:poke53281, 1:print"[147]";
201 print"+ [186] Quantum Link ";
202 print" [152] ";
203 print" --- NOTICE[160]--- ";
204 print" Once the Quantum Link demo/terminal pr";
205 print"ogram is loaded, you will have to reboot LOADSTAR to return to the ";
206 print" menu system. ";
207 print" Continue with loading Quantum Link ";
208 print" Quit and return to LOADSTAR ";
209 print" (Please make your selection with the CR";
210 print"SR keys and press F1 when ready.) ";
211 print" [154] "
215 poke53265,peek(53265)or16
220 po=1:po$="":ad$=""
225 printpo$ad$"[152][186]"
230 geta$:ifa$=""then230
231 ifa$=""andpo=1ora$="[145]"andpo=1thenpo=2:printpo$ad$"[152] [146]":ad$="":goto 225
235 ifa$=""andpo=2ora$="[145]"andpo=2thenpo=1:printpo$ad$"[152] [146]":ad$="":goto225
245 ifa$="[133]"then 250
248 goto 230
250 print"";
260 forx=1to15:print"[160] [145][145]";:next
265 on po goto270,300
270 print"[152]";:ford=1to100:next
280 print" [146]";
281 print" [146]";
282 print" [208]lease insert [211][201][196][197] 4 [146]";
283 print" [146]";
284 print" of [204][207][193][196][211][212][193][210] and [146]";
285 print" [146]";
286 print" press ([211][208][193][195][197]) to continue [146]";
287 print" [146]";
290 geta$:ifa$<>" "then290
291 open15,8,15,"r0:quantum=quantum":input#15,er,er$:close15:
292 print" [146]";
295 ifer<>63 then print"[147]":end
297 load"boot64",8,1
300 print"[147]":open15,8,15,"r0:hello connect=hello connect":input#15,er,er$:close15
301 ifer<>63 then print"[147]":end
305 load"hello connect",8,1